home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getdis1r / form1.frm < prev    next >
Text File  |  1999-07-26  |  16KB  |  580 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Object = "{F3376356-3242-11D3-83BB-F6844B1D6002}#1.1#0"; "CONTROLRESIZER.OCX"
  5. Begin VB.Form frmBrowser 
  6.    AutoRedraw      =   -1  'True
  7.    BorderStyle     =   1  'Fixed Single
  8.    Caption         =   "<Your Program Name Here>"
  9.    ClientHeight    =   6276
  10.    ClientLeft      =   36
  11.    ClientTop       =   612
  12.    ClientWidth     =   9528
  13.    LinkTopic       =   "Form1"
  14.    Picture         =   "Form1.frx":0000
  15.    ScaleHeight     =   523
  16.    ScaleMode       =   0  'User
  17.    ScaleWidth      =   1.033
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.ComboBox lstfavs 
  20.       Height          =   288
  21.       Left            =   5640
  22.       TabIndex        =   9
  23.       Top             =   480
  24.       Visible         =   0   'False
  25.       Width           =   3852
  26.    End
  27.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  28.       Height          =   5412
  29.       Left            =   0
  30.       TabIndex        =   8
  31.       Top             =   840
  32.       Width           =   9492
  33.       ExtentX         =   16743
  34.       ExtentY         =   9546
  35.       ViewMode        =   1
  36.       Offline         =   0
  37.       Silent          =   0
  38.       RegisterAsBrowser=   0
  39.       RegisterAsDropTarget=   0
  40.       AutoArrange     =   -1  'True
  41.       NoClientEdge    =   -1  'True
  42.       AlignLeft       =   0   'False
  43.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  44.       Location        =   ""
  45.    End
  46.    Begin VB.CommandButton Command5 
  47.       Caption         =   "Home"
  48.       Height          =   420
  49.       Left            =   3960
  50.       TabIndex        =   7
  51.       ToolTipText     =   "Home"
  52.       Top             =   0
  53.       Width           =   904
  54.    End
  55.    Begin VB.CommandButton Command4 
  56.       Caption         =   "Stop"
  57.       Height          =   420
  58.       Left            =   3000
  59.       TabIndex        =   6
  60.       ToolTipText     =   "Stop"
  61.       Top             =   0
  62.       Width           =   904
  63.    End
  64.    Begin VB.CommandButton Command3 
  65.       Caption         =   "Refresh"
  66.       Height          =   420
  67.       Left            =   2040
  68.       TabIndex        =   5
  69.       ToolTipText     =   "Refresh"
  70.       Top             =   0
  71.       Width           =   904
  72.    End
  73.    Begin VB.CommandButton Command2 
  74.       Caption         =   "Forward"
  75.       Height          =   420
  76.       Left            =   1080
  77.       TabIndex        =   4
  78.       ToolTipText     =   "Forward"
  79.       Top             =   0
  80.       Width           =   904
  81.    End
  82.    Begin VB.CommandButton Command1 
  83.       Caption         =   "Back"
  84.       Height          =   420
  85.       Left            =   120
  86.       TabIndex        =   3
  87.       ToolTipText     =   "Back"
  88.       Top             =   0
  89.       Width           =   904
  90.    End
  91.    Begin MSComDlg.CommonDialog CommonDialog1 
  92.       Left            =   4800
  93.       Top             =   3240
  94.       _ExtentX        =   677
  95.       _ExtentY        =   677
  96.       _Version        =   393216
  97.    End
  98.    Begin VB.ComboBox Address 
  99.       Height          =   288
  100.       ItemData        =   "Form1.frx":0052
  101.       Left            =   720
  102.       List            =   "Form1.frx":0054
  103.       TabIndex        =   0
  104.       ToolTipText     =   "Web Site Address"
  105.       Top             =   480
  106.       Width           =   3900
  107.    End
  108.    Begin ControlResizer.AutoResizer AutoResizer1 
  109.       Height          =   3612
  110.       Left            =   2400
  111.       Top             =   1320
  112.       Width           =   4812
  113.       _ExtentX        =   8488
  114.       _ExtentY        =   6371
  115.    End
  116.    Begin VB.Label Label3 
  117.       Caption         =   "Fav.Book:"
  118.       BeginProperty Font 
  119.          Name            =   "MS Sans Serif"
  120.          Size            =   9.6
  121.          Charset         =   0
  122.          Weight          =   400
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   252
  128.       Left            =   4680
  129.       TabIndex        =   10
  130.       Top             =   480
  131.       Width           =   972
  132.    End
  133.    Begin VB.Label Label2 
  134.       BorderStyle     =   1  'Fixed Single
  135.       Height          =   420
  136.       Left            =   4920
  137.       TabIndex        =   2
  138.       ToolTipText     =   "Link to what page"
  139.       Top             =   0
  140.       Width           =   4572
  141.    End
  142.    Begin VB.Label Label1 
  143.       Caption         =   "http://"
  144.       BeginProperty Font 
  145.          Name            =   "MS Sans Serif"
  146.          Size            =   9.6
  147.          Charset         =   0
  148.          Weight          =   400
  149.          Underline       =   0   'False
  150.          Italic          =   0   'False
  151.          Strikethrough   =   0   'False
  152.       EndProperty
  153.       Height          =   252
  154.       Left            =   120
  155.       TabIndex        =   1
  156.       Top             =   480
  157.       Width           =   852
  158.    End
  159.    Begin VB.Menu File 
  160.       Caption         =   "&File"
  161.       NegotiatePosition=   1  'Left
  162.       Begin VB.Menu New 
  163.          Caption         =   "&New Window"
  164.          Shortcut        =   ^N
  165.       End
  166.       Begin VB.Menu Extrasenabledisable 
  167.          Caption         =   "&Extra's"
  168.          Begin VB.Menu ExtraEnable 
  169.             Caption         =   "&Enable Extra's"
  170.          End
  171.          Begin VB.Menu ExtraDisable 
  172.             Caption         =   "&Disable Extra's"
  173.          End
  174.       End
  175.       Begin VB.Menu Exit 
  176.          Caption         =   "E&xit"
  177.          Shortcut        =   ^Q
  178.       End
  179.    End
  180.    Begin VB.Menu Extra 
  181.       Caption         =   "&Extra's"
  182.       Enabled         =   0   'False
  183.       NegotiatePosition=   1  'Left
  184.       Begin VB.Menu link 
  185.          Caption         =   "Links"
  186.          Begin VB.Menu Telery 
  187.             Caption         =   "Telery"
  188.          End
  189.          Begin VB.Menu line 
  190.             Caption         =   "-"
  191.          End
  192.          Begin VB.Menu searcheng 
  193.             Caption         =   "Search Engine's"
  194.             Begin VB.Menu vista 
  195.                Caption         =   "Altavista"
  196.             End
  197.             Begin VB.Menu Excite 
  198.                Caption         =   "Excite"
  199.             End
  200.             Begin VB.Menu bot 
  201.                Caption         =   "HotBot"
  202.             End
  203.             Begin VB.Menu Lycos 
  204.                Caption         =   "Lycos"
  205.             End
  206.             Begin VB.Menu Magellan 
  207.                Caption         =   "Magellan"
  208.             End
  209.             Begin VB.Menu search 
  210.                Caption         =   "search.com"
  211.             End
  212.             Begin VB.Menu crawl 
  213.                Caption         =   "WebCrawler"
  214.             End
  215.             Begin VB.Menu gans 
  216.                Caption         =   "Yahooligans"
  217.             End
  218.             Begin VB.Menu Yahoo 
  219.                Caption         =   "Yahoo"
  220.             End
  221.          End
  222.          Begin VB.Menu dwnload 
  223.             Caption         =   "Download"
  224.             Begin VB.Menu media 
  225.                Caption         =   "Macromedia"
  226.             End
  227.             Begin VB.Menu download 
  228.                Caption         =   "download.com"
  229.             End
  230.             Begin VB.Menu shareware 
  231.                Caption         =   "shareware.com"
  232.             End
  233.             Begin VB.Menu window 
  234.                Caption         =   "Windows95.com"
  235.             End
  236.          End
  237.       End
  238.       Begin VB.Menu Mail 
  239.          Caption         =   "Mail"
  240.          Begin VB.Menu SendMail 
  241.             Caption         =   "Send Mail"
  242.             Shortcut        =   ^M
  243.          End
  244.       End
  245.       Begin VB.Menu line2 
  246.          Caption         =   "-"
  247.       End
  248.       Begin VB.Menu FavBook 
  249.          Caption         =   "&Fav. Book"
  250.          Begin VB.Menu favbookadd 
  251.             Caption         =   "&Add FavoriteBook"
  252.             Shortcut        =   ^A
  253.          End
  254.          Begin VB.Menu favbookopen 
  255.             Caption         =   "&Open FavoriteBook"
  256.             Shortcut        =   ^O
  257.          End